perm filename LKSGD.F4[TLC,MUS]4 blob
sn#073239 filedate 1973-11-16 generic text, type T, neo UTF8
00100 C GOOD-LOOKS PROGRAM -- TYPE X TO BACKUP
00200 INTEGER DL,SL,HX,WL
00300 11 FORMAT(A1)
00400 1 FORMAT(' LEGS? GOOD OR BAD? ',$)
00500 12 TYPE 1
00600 ACCEPT 11,L
00700 IF(L.EQ.'G')GO TO 16
00800
00900 2 FORMAT(' THIGHS? ',$)
01000 13 TYPE 2
01100 ACCEPT 11,T
01200 IF(T.EQ.'X')GO TO 12
01300
01400 3 FORMAT(' KNEES? ',$)
01500 14 TYPE 3
01600 ACCEPT 11,K
01700 IF(K.EQ.'X')GO TO 13
01800
01900 4 FORMAT(' CALVES? ',$)
02000 15 TYPE 4
02100 ACCEPT 11,C
02200 IF(C.EQ.'X')GO TO 14
02300
02400 5 FORMAT(' ARMS? ',$)
02500 16 TYPE 5
02600 ACCEPT 11,A
02700 IF(A.EQ.'X')GO TO 15
02800
02900 6 FORMAT(' SHOULDERS? GOOD, WIDE OR NARROW? ',$)
03000 17 TYPE 6
03100 ACCEPT 11,S
03200 IF(S.EQ.'X')GO TO 16
03300
03400 7 FORMAT(' WAIST? GOOD OR WIDE? ',$)
03500 18 TYPE 7
03600 ACCEPT 11,W
03700 IF(W.EQ.'X')GO TO 17
03800
03900 8 FORMAT(' HIPS? GOOD, WIDE OR NARROW? ',$)
04000 19 TYPE 8
04100 ACCEPT 11,H
04200 IF(H.EQ.'X')GO TO 18
04300
04400 9 FORMAT(' BUST? GOOD, BIG OR SMALL? ',$)
04500 20 TYPE 9
04600 ACCEPT 11,B
04700 IF(B.EQ.'X')GO TO 19
04800
04900 10 FORMAT(' NECK? GOOD, LONG OR SHORT? ',$)
05000 TYPE 10
05100 ACCEPT 11,N
05200 DL=1
05300 IF(L.EQ.'G')GO TO 21
05400 C JUMP IF GOOD LEGS
05500 IF(T.EQ.'B')DL=2
05600 IF(K.EQ.'B')DL=3
05700 IF(C.EQ.'B')DL=4
05800 21 SL=1
05900 IF(S.EQ.'N')SL=3
06000 C SHOULDER LINE BEST
06100 IF(S.NE.'W')GO TO 22
06200 SL=2
06300 C SLEEVELESS BEST, NO SHOULDER LINE
06400 IF(A.EQ.'B')SL=4
06500 C LONG SLEEVES,NO SHOULDER LINE
06600 41 FORMAT(/' << SKIRT SHOULD BE '$)
06700 22 TYPE 41
06800 GO TO(23,24,25,26),DL
06900
07000 27 FORMAT('+SHORT.'/)
07100 23 TYPE 27
07200 GO TO 28
07300
07400 29 FORMAT('+MEDIUM SHORT.'/)
07500 24 TYPE 29
07600 GO TO 28
07700
07800 30 FORMAT('+MEDIUM LONG.'/)
07900 25 TYPE 30
08000 GO TO 28
08100
08200 31 FORMAT('+LONG.'/)
08300 26 TYPE 31
08400
08500 28 GO TO(32,33,34,35),SL
08600
08700 36 FORMAT(' << ANY SHOULDER CUT.'/)
08800 32 TYPE 36
08900 GO TO 37
09000
09100 38 FORMAT(' << SLEEVELESS IS BEST.'/)
09200 33 TYPE 38
09300 GO TO 37
09400
09500 39 FORMAT(' << USE SHOULDER LINE.'/)
09600 34 TYPE 39
09700 GO TO 37
09800
09900 40 FORMAT(' << LONG SLEEVES BUT NO SHOULDER LINE.'/)
10000 35 TYPE 40
10100
10110 37 WL=0
10200 IF(W.EQ.'W')WL=1
10300 IF(W.EQ.'N')WL=2
10400 GO TO(42,44),WL
10500 GO TO 45
10600 141 FORMAT(' <<USE NO WAISTLINE.'/)
10700 42 TYPE141
10800 GO TO 45
10900 43 FORMAT(' <<USE WAISTLINE.'/)
11000 44 TYPE42
11100 GO TO 45
11200 45 IF(H.EQ.'G')GO TO 200
11300 IF(H.EQ.'W')HX=1
11400 IF(H.EQ.'N')HX=2
11500 GO TO (47,490),HX
11600 47 IF(B.EQ.'S')TYPE 48
11700 48 FORMAT(' <<USE EMPIRE WAIST.'/)
11800 56 FORMAT(' USE NO EMPIRE.'/)
11900 IF(B.EQ.'B')TYPE 56
11910 IF(B.EQ.'G')TYPE 493
11920 493 FORMAT(' << USE NO HIP-LINE.'/)
12000 GO TO 200
12100 491 FORMAT(' <<USE HIP-LINE'/)
12200 490 TYPE 491
12300 200 IF(A.EQ.'G')GO TO 201
12310 IF(S.NE.'N')TYPE 492
12320 492 FORMAT(' <<LONG SLEEVES.'/)
12400 IF(S.EQ.'N')TYPE 49
12500 49 FORMAT(' <<USE 3/4 SLEEVE.'/)
12600 GO TO 201
12700 203 TYPE 33
12800 201 IF(B.EQ.'G')GO TO 52
12900 IF(B.EQ.'B')TYPE 51
13000 51 FORMAT(' << NO EMPIRE WAIST.'/)
13100 IF(B.NE.'S')GO TO 202
13200 IF(S.EQ.'W')TYPE 48
13300 IF(S.EQ.'N')TYPE 52
13400 52 FORMAT(' <<USE SHOULDER LINE UNDER-GATHERING.'/)
13500 IF(N.EQ.'L') TYPE 53
13600 IF(N.EQ.'S') TYPE 54
13700 53 FORMAT(' <<USE HI NECKLINE.'/)
13800 54 FORMAT(' <<USE LOW NECKLINE.'/)
13900 202 CALL EXIT
14000 END